>>691
if ( $str =~ /foo/ ){
print $-[0] . "＼n" ;
}
後は @+ と pos 関数