$ echo bar*
bar*
$ perl -e 'print glob("bar*")'
$