The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/\s(<[^>]*>)*token1(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token2(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token17(<[^>]*>)*\s/ @name = token1<>token2<>token17
/\s(<[^>]*>)*token3(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token4(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token18(<[^>]*>)*\s/ @name = token3<>token4<>token18
/\s(<[^>]*>)*token5(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token6(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token19(<[^>]*>)*\s/ @name = token5<>token6<>token19
/\s(<[^>]*>)*token7(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token8(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token20(<[^>]*>)*\s/ @name = token7<>token8<>token20
/\s(<[^>]*>)*token9(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token10(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token21(<[^>]*>)*\s/ @name = token9<>token10<>token21
/\s(<[^>]*>)*token11(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token12(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token22(<[^>]*>)*\s/ @name = token11<>token12<>token22
/\s(<[^>]*>)*token13(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token14(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token23(<[^>]*>)*\s/ @name = token13<>token14<>token23
/\s(<[^>]*>)*token15(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token16(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token24(<[^>]*>)*\s/ @name = token15<>token16<>token24