Select Code to Download

#! /usr/bin/perl
use 5.018;
use strict;
...
$string was:    data.csv0;       RESULT: 0 (from Ln 11)     #problem1
$string was:    123.;    RESULT: 123 (from Ln 11)
$string was:    1data2.csv;      RESULT: 1 (from Ln 11)     #problem2