#! perl
use strict;
use warnings;

my $s = "a\n\n\nb";
my $t = $s =~ s{^\s*?$}{}gmr;

printf "%s\n", $s eq $t ? 'success' : 'fail';
print  ">$s<\n";
print  "[$t]\n";