use strict;

for (qw(foo foo& &foo foo&bar)) {
    /([^&]+)\&/;
    print "$_ - $1\n";
}