Shell Programming and Scripting

$row[3] =~ m/^.*(.....)\s$/;

$row[3] =~ m/\w{5}\s*$/i;

$row[3] =~ s/(^0{2,})(\w{5}$)/\2/o;

my $serialno =  $row->[3];
print $serialno."\n";

        my $length = length($row->[3]);
        my $start = $length - 5;
    my $serialno = substr($row->[3], $start, $length);

perl -wl -e 'my $str=<>;chomp $str;$str=~/^.*(.{5})$/ and print $1'

gaurav@localhost:~$ perl -wl -e 'my $str=<>;chomp $str;$str=~/^.*(.{5})$/ and print $1'
myhouseisinindia
india
gaurav@localhost:~$

$ perl -wl -e 'my $str=<>;$str=~/(.{5})$/ and print $1'
myhouseisinamsterdam
erdam