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/ @name = token1<>token2
/\s(<[^>]*>)*token3(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token4(<[^>]*>)*\s/ @name = token3<>token4
/\s(<[^>]*>)*token5(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token6(<[^>]*>)*\s/ @name = token5<>token6
/\s(<[^>]*>)*token7(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token8(<[^>]*>)*\s/ @name = token7<>token8
/\s(<[^>]*>)*token9(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token10(<[^>]*>)*\s/ @name = token9<>token10
/\s(<[^>]*>)*token11(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token12(<[^>]*>)*\s/ @name = token11<>token12
/\s(<[^>]*>)*token13(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token14(<[^>]*>)*\s/ @name = token13<>token14
/\s(<[^>]*>)*token15(<[^>]*>)*\s(<[^>]*>\s)*(<[^>]*>)*token16(<[^>]*>)*\s/ @name = token15<>token16