Select Code to Download

#!/usr/bin/perl

...
__END__
Tsjakka
meep

/^([A-Za-z0-9φδεΦΔΕ][A-Za-zφδεΦΔΕ0-9\s\-\.\,]*)$/ 
          or $_ = undef for $address1, $address2;