my $str = "perlmonks.org";

if ($str =~ /
    ^(.{1}) # first character
    .*      # the rest of the string
    (.+)$   # minus the last character
    /x) 
{
    print $1, ' ', $2, "\n";
}