#!/usr/bin/perl

use strict;
use warnings;

"meep" =~ /(.*)/;  # Set $1.

my $address1 = "Tsjakka";  # Will match.
my $address2 = "Tsjakka!"; # Will not match.


{
    $address1 =~ /^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]*)$/;
    $address1 = $1;
}
{
    $address2 =~ /^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]*)$/;
    $address2 = $1;
}

print $address1, "\n";
print $address2, "\n";

__END__
Tsjakka
meep

##</code><code>##

/^([A-Za-z0-9öäåÖÄÅ][A-Za-zöäåÖÄÅ0-9\s\-\.\,]*)$/ 
          or $_ = undef for $address1, $address2;