#!/usr/bin/perl -w
use strict;

my $list = '
    FUD() => "()", "FUD" => "str", FUD => "bare", -FUD => "-", +FUD => "+",
';

sub FUD { 'fud' }
for(  0 .. 1  ) {
    my @a = eval $list;
    print "@a\n";
    last if $_;
    undef &FUD;
    eval 'sub FUD() { "dud" }';
}
__END__
fud () FUD str FUD bare -FUD - FUD +
dud () FUD str FUD bare -FUD - FUD +