Something

$PATH="/home/mina/.mozilla/firefox/profiles.ini";
#open(INFILE,"$PATH") || die "Problems: $!";
@array=`cat $PATH`;

foreach(@array){
if (/Profile/){
$profile=$_;
print "Profile\n";
 }
}