Select Code to Download

if ($adress1 =~ /^([A-Za-z0-9φδεΦΔΕ][A-Za-zφδεΦΔΕ0-9\s\-\.\,]*)$/) {
    $adress1 = $1;
...
    $adress1 = undef;
}
# and so on...

{
  $adress1 =~ /^([A-Za-z0-9φδεΦΔΕ][A-Za-zφδεΦΔΕ0-9\s\-\.\,]*)$/)
...
  $adress2 = $1;
}