#!/usr/bin/perl

use strict;
use warnings;

$file="test";
$cmd="perl -pi -e s\'\/^\\s+\/\/'g $file";
print "$cmd\n";
system($cmd);