in reply to Re: Re: $1 don't reset (non loop)
in thread $1 don't reset (non loop)

Another "clean looking solution"!?
($_)= /^([A-Za-z0-9φδεΦΔΕ][A-Za-zφδεΦΔΕ0-9\s\-\.\,]*)$/ for ($address1
+, $address2);

[download]
Works by aliasing the current variable to $_

In Section Seekers of Perl Wisdom