diff --git a/rootfs/home/andre/.bashrc b/rootfs/home/andre/.bashrc
index a83d5c0..6d75dd9 100644
--- a/rootfs/home/andre/.bashrc
+++ b/rootfs/home/andre/.bashrc
@@ -330,7 +330,7 @@ AddTimeDateToPicturesMenu () {
    date > $LOG
    echo $@ >> $LOG
 
-   D=$(perl -e '$s=$ARGV[0];@a=$s=$HOMEDIR/([a-z0-9-._\/ ]*?)([a-z0-9-._]*) +\//i;
+   D=$(perl -e '$s=$ARGV[0];@a=$s=~/([a-z0-9-._\/ ]*?)([a-z0-9-._]*) +\//i;
 $s=~s/$a[0]//g;
 print "$a[0]";
 ' "$@")
@@ -338,7 +338,7 @@ print "$a[0]";
     P=$(pwd)
     echo "P $P" >> $LOG
 
-   F=$(perl -e '$s=$ARGV[0];@a=$s=$HOMEDIR/([a-z0-9-._\/ ]*?)([a-z0-9-._]*) +\//i;
+   F=$(perl -e '$s=$ARGV[0];@a=$s=~/([a-z0-9-._\/ ]*?)([a-z0-9-._]*) +\//i;
 $s=~s/$a[0]//g;
 print "$s";
 ' "$@")