$_='1222222222222222222223333333333333333333344444';
/(.)(.{20})(.{20})(.{5})/;
print "$1 $2 $3 $4";

# '.' will match a space
print " "  =~ /./  ? "\nmatch space" : "\nno match space";
# this is how you make . match everyting with a /s
print "\n" =~ /./  ? "\nmatch" : "\nno match";
print "\n" =~ /./s ? "\nmatch" : "\nno match";