use v6;

if (@*ARGS != 1) {say ‘Use:scan.p6 ip‘;exit;}
my $check_ip = @*ARGS[0];
$check_ip = ‘<value>‘~$check_ip~‘</value>‘;
say $check_ip;
my $stat_file = ‘Smbtouch-1.1.1.xml‘;
my $chang_file = slurp $stat_file;

my $swap_data = http://www.mamicode.com/do given $chang_file {S//d**1..3/d**1..3/d**1..3/d**1..3//$check_ip/;};>