$ perl -le " $f = q!1asdf!; print $f; $f++; print $f; "
1asdf
2