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

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