my $last_element;
my $line = <FILEHANDLE>;
if( $line =~ m/:([^:]*)\Z/ ) {
    $last_element = $1;
}