my $debug = shift @ARGV; if ( $debug == 1) { print "debug mode\n"; } while () { if (/ver =/) { $old_version = $_; $old_version =~ s/ver = '//; $old_version =~ s/'//; chomp($old_version ); close INFILE; } my $projlabl = $projectPath; $projlabl =~ s/\.pro//; $projlabl = $projlabl . "labeler";