fork download
  1. #!/usr/bin/perl
  2.  
  3. ($test = "test") =~ /^(.*?)t/ && print $1;
Success #stdin #stdout 0s 6044KB
stdin
Standard input is empty
stdout
Standard output is empty