Lines Matching refs:last
81 my $last = ${$includestringref};
83 while ( $last =~ /^\s*(.+?)\Q$listseparator\E(.+)\s*$/) # "$" for minimal matching
86 $last = $2;
91 $last =~ s/\"//g;
92 push(@newarray, $last);
108 my $last = ${$includestringref};
110 while ( $last =~ /^\s*(.+?)\Q$listseparator\E(.+)\s*$/) # "$" for minimal matching
113 $last = $2;
119 push(@newarray, "$last\n");
135 my $last = ${$includestringref};
137 while ( $last =~ /^\s*(.+?)\Q$listseparator\E(.+)\s*$/) # "$" for minimal matching
140 $last = $2;
144 push(@newarray, "$last");
160 my $last = ${$includestringref};
162 while ( $last =~ /^\s*(.+?)\Q$listseparator\E(.+)\s*$/) # "$" for minimal matching
165 $last = $2;
169 $newhash{$last} = 1;
185 my $last = ${$includestringref};
187 while ( $last =~ /^\s*(\S+?)\s+(\S+)\s*$/) # "$" for minimal matching
190 $last = $2;
194 push(@newarray, "$last\n");