#!/usr/bin/perl
use strict;
use warnings;

my $re = qr{^\s*(?=\w+\s+\w+)[\w\s]{49,}?\w};

my $str =  ('x' x 65) . ' x';

if ($str =~ m/$re/) {
    print $&, $/;
}
__END__
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx