perhaps a glob, and a foreach would do the job...

post more info, so i can help you a little more...

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;