use strict;

my $string = "This is a test.\n";

$string =~ s/^(.{1})(.*)/$2/;