my $str = "\nxyz\nabc\n";
$str =~ s/^\n//;