if ( $string =~ /([A-Za-z]*\s[A-Za-z]*)\s+([0-9]{1,2}[%])/ ) {
   print $1 . "\n" . $2;             #   ^
}
else ...