<code>
use strict;
use warnings;

my $search = $ARGV[0];

my @strassen = (
    'Blagasse 12',
    'Blag. 11',
    'Buh Gasse 1',
    'Bug G. 2',
    );

foreach (@strassen) {
  $_ =~ s/(g)\./$1asse/ig;
  printf "%s\n", $_;
  }

# printf "%s\n", $search;
</code>