my $str = 'abcdef';
$str    = $1 if $str =~ m/^.(.*)$/;