my $string = shift @ARGV;