Lines Matching refs:last
79 my $last = "";
81 $last = $input;
83 while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/) # "$" for minimal matching
86 $last = $2;
91 par2script::remover::remove_leading_and_ending_whitespaces(\$last);
92 if ( $last ) { push(@newarray, $last); }
102 my ($first, $last);
104 $last = ${$includestringref};
106 while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/) # "$" for minimal matching
109 $last = $2;
114 par2script::remover::remove_leading_and_ending_whitespaces(\$last);
115 push(@newarray, $last);