Help for this page
$tu ="D:\\vroom\\diags\\in\\frameworks\\my_ip\\shock.h"; print "res:\t$res\n" if $res=$tu=~ m/$.c/g; print "res:\t$res\n" if $mes=$tu=~ m/$.h/g;
$tu ="D:\\vroom\\diags\\in\\frameworks\\my_ip\\shock.h"; ... { print "out of loop\n"; }