use strict;
use warnings;

my $text = "The quick brown fox jumps over the lazy dog";
my ($h, $i, $j) = $text =~ /(\S*h\S*).*?(\S*i\S*).*?(\S*j\S*)/;
print "$h, $i, $j\n";

__END__
Output:
The, quick, jumps