#!/usr/bin/perl

my $string="testing.123";

my $result = substr( $string, rindex( $string, '.' ) + 1 );

print "$result\n";