jars@jars-desktop:~$ perl -wle 'my $var = "test"; $var =~ /.(..)/; print $1; $var =~ /noch/; print $1; $var =~ /test/; print $1' 
es
es
Use of uninitialized value in print at -e line 1.