my $n =  # choose your rgx number

# skip a new-line beginning with a literal space.

my $rgx1 = qr/^ /;

# skip a new-line beginning with a non-printing character
# \s = space, \t = tab, \r = carriage-return, \n = new-line

my $rgx2 = qr/^\s/;